Procedure FillBlock(X1,Y1,X2,Y2:Word;WithChar:Char)

    Updates VX and VY       : No
    Updates Cursor Position : No

    This is similar to  Graph.Bar.    It  displays a block of text (using
    the current text colours and character WithChar) at position (X1,Y1).

    Example

    FillBlock(1,1,3,3,'#')

    displays, in the top left corner,

    ###
    ###
    ###.